home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Progress_Step_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  2.5 KB  |  84 lines
  1. VERSION 5.00
  2. Object = "{AA1241B5-301A-4A8B-BF55-907CFB305553}#1.0#0"; "ciaXPProgressStep.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00FFFFFF&
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3810
  7.    ClientLeft      =   60
  8.    ClientTop       =   450
  9.    ClientWidth     =   6300
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3810
  12.    ScaleWidth      =   6300
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin ciaXPProgressStep.ProgressStep ProgressStep1 
  15.       Height          =   360
  16.       Left            =   1455
  17.       TabIndex        =   3
  18.       Top             =   615
  19.       Width           =   3375
  20.       _ExtentX        =   5953
  21.       _ExtentY        =   635
  22.       UseNeutralColors=   0   'False
  23.       Steps           =   5
  24.       LicValid        =   -1  'True
  25.    End
  26.    Begin VB.Timer Timer1 
  27.       Enabled         =   0   'False
  28.       Interval        =   1000
  29.       Left            =   4230
  30.       Top             =   2835
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Start"
  34.       Height          =   495
  35.       Left            =   2850
  36.       TabIndex        =   1
  37.       Top             =   2790
  38.       Width           =   1215
  39.    End
  40.    Begin VB.Label Label2 
  41.       BackColor       =   &H00FFFFFF&
  42.       Caption         =   "Label2"
  43.       ForeColor       =   &H80000011&
  44.       Height          =   255
  45.       Left            =   1830
  46.       TabIndex        =   2
  47.       Top             =   1020
  48.       Width           =   3135
  49.    End
  50.    Begin VB.Label Label1 
  51.       BackColor       =   &H00FFFFFF&
  52.       Caption         =   $"Form1.frx":0000
  53.       Height          =   900
  54.       Left            =   570
  55.       TabIndex        =   0
  56.       Top             =   1830
  57.       Width           =   5385
  58.       WordWrap        =   -1  'True
  59.    End
  60. Attribute VB_Name = "Form1"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. Dim inc As Integer
  66. Private Sub Command1_Click()
  67. Command1.Enabled = False
  68. ProgressStep1.ClearAllSteps 0
  69. Timer1.Enabled = True
  70. Label2 = "0 percent complete.  Please Wait......"
  71. End Sub
  72. Private Sub Timer1_Timer()
  73. If inc > 4 Then
  74.   Timer1.Enabled = False
  75.   Command1.Enabled = True
  76.   Label2 = "Complete"
  77.   inc = 0
  78.   Exit Sub
  79. End If
  80. ProgressStep1.ChangeStepState inc, True, (inc + 1) * 20
  81. Label2 = "" & (inc + 1) * 20 & " percent complete.  Please Wait......"
  82. inc = inc + 1
  83. End Sub
  84.